home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 45
/
Aminet 45 (2001)(GTI - Schatztruhe)[!][Oct 2001].iso
/
Aminet
/
dev
/
e
/
yaec.lha
/
examples
/
alibtest.e
< prev
next >
Wrap
Text File
|
2001-08-12
|
186b
|
10 lines
/* example of using an amigalib function */
MODULE 'amigalib'
PROC main()
DEF a, seed=$F0987601
FOR a := 0 TO 100 DO WriteF('random val = \d\n', seed := FastRand(seed))
ENDPROC